home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Auge 4000 / Auge 4000 #77 (1994-02-10)(Amiga User Gruppe Einzugsgebiet 4000).zip / Auge 4000 #77 (1994-02-10)(Amiga User Gruppe Einzugsgebiet 4000).adf / Write / WRITE.lha / WRITEV3.371.lha / Config / VIEW.config < prev    next >
Text File  |  1993-12-27  |  5KB  |  213 lines
  1. /*
  2.  *  $VER: VIEW.CONFIG 3.371 (27.12.93) © 1989 - 1993 by Tim Teulings
  3.  */
  4.  
  5. IF Compare 3371 _Version;
  6.    NOP;
  7.    Ask "WRITE und VIEW.cfg haben eine unterschiedliche\n"+
  8.        "Versionsnummer\n"+
  9.        "Weiterparsen könnte gefährlich sein !"
  10.        "Stop & _Ende ^|_Weiter pasen *"
  11.    Break EQUAL _RN 0;
  12.  
  13.  
  14. /* Setzen der internen Variablen */
  15. /* ----------------------------- */
  16.  
  17. /* Lokal */
  18.  
  19. SETVAR "_ReadTabs"          TRUE   /* Konvertieren ja/nein ?          */
  20. SETVAR "_CaseSense"         TRUE
  21. SETVAR "_Optimize"          TRUE
  22. SETVAR "_FRPattern" "~(#?.info)"
  23. SETVAR "_EditMode"         FALSE
  24.  
  25. /* Setzen der User-Funktionen */
  26. /* -------------------------- */
  27.  
  28. /*Die Commandline-Load WBenchArg Routine */
  29.  
  30. SETUSERFKT 0 SETVAR "_Path" _RS
  31.              NewEd ""
  32.              Window 0 0 0 0
  33.              Open _Path;
  34.  
  35. /* Die Closing-Gadget Routine */
  36.  
  37. SETUSERFKT 1 QuitEd;
  38.  
  39. /* Die Tastaturbelegung */
  40. /* -------------------- */
  41.  
  42. KEY "shift help"
  43.     Help;       /* Help-Menu */
  44.  
  45. KEY "escape" Iconify;
  46.  
  47. KEY "f1"       GoTextMark 0;   /* Textmarken auf  */
  48. KEY "shift f1" SetTextMark 0;  /* Funktionstasten */
  49. KEY "f2"       GoTextMark 1;
  50. KEY "shift f2" SetTextMark 1;
  51. KEY "f3"       GoTextMark 2;
  52. KEY "shift f3" SetTextMark 2;
  53. KEY "f4"       GoTextMark 3;
  54. KEY "shift f4" SetTextMark 3;
  55. KEY "f5"       GoTextMark 4;
  56. KEY "shift f5" SetTextMark 4;
  57.  
  58. KEY "numpad shift 1" Goto _xPos _Length; /*  Tastaturbelegung für        */
  59. KEY "numpad shift 2" CursorDown 0;       /*  nummerische Tastatur        */
  60. KEY "numpad shift 3" PageDown 90;        /*  siehe Aufschrift auf Tasten */
  61. KEY "numpad shift 4" CursorLeft 0;       /*  Aktivierung mit SHIFT       */
  62. KEY "numpad shift 5" SetTitle "Set Mark." FALSE
  63.                      SetMark;
  64. KEY "numpad shift 6" CursorRight 0;
  65. KEY "numpad shift 7" Goto _xPos 1;
  66. KEY "numpad shift 8" CursorUp 0;
  67. KEY "numpad shift 9" PageUp 90;
  68. KEY "numpad enter"   Return;
  69.  
  70. KEY "right" CursorRight 0;
  71. KEY "left"  CursorLeft 0;
  72. KEY "up"    CursorUp 0;
  73. KEY "down"  CursorDown 0;
  74.  
  75. KEY "shift up"    PageUp   90;
  76. KEY "shift down"  PageDown 90;
  77. KEY "shift right" Goto @EOL @EOL;
  78. KEY "shift left"  Goto @SOL @SOL;
  79.  
  80. KEY "alt up"  Goto _xPos 1;        /*  zur 1. Zeile oder         */
  81. KEY "alt down" Goto _xPos _Length;  /* zur letzten Zeile springen */
  82.  
  83. KEY "alt left"  LastWord;
  84. KEY "alt right" NextWord;
  85.  
  86. /*
  87.  * alternates :
  88.  * Change number after CursorLeft/Right/Up/Down and BackSpace to 1
  89.  */
  90.  
  91.  
  92. /* Die Menüs */
  93. /* --------- */
  94.  
  95. MENU   "PROJEKT"
  96.   ITEM "Öffne..." "O"
  97.        GetFile
  98.        Open _Path;
  99.   ITEMBAR
  100.   ITEM "Speichern" "S"
  101.        Save _FileName;
  102.   ITEM "Speichern als..." "A"
  103.        GetFile {@SAVE}
  104.        SetVar "_FileName" _Path
  105.        Save _FileName;
  106.   ITEM "Speicher als RAW..." ""
  107.        GetFile {@SAVE}
  108.        Save _Path {@RAW};
  109.   ITEM "Speichern & neu öffnen..." ""
  110.        Save _FileName
  111.        GetFile
  112.        Open _Path;
  113.   ITEM "Text ausdrucken" "*"
  114.        Save "PRT:";
  115.   ITEMBAR
  116.   ITEM "Neues Fenster »" "" NOP;
  117.     SUB "GROßES FENSTER" "B"
  118.         NewEd "VIEW.config"
  119.         Window   0  0   0  0;
  120.     SUB "kleines Fenster" "W"
  121.         NewEd "VIEW.config"
  122.         Window 100 50 100 50;
  123.   ITEM "Iconify" "I"
  124.        Iconify;
  125.   ITEM "Hide" ""
  126.        Hide;
  127.   ITEM "WinArranger" "§"
  128.        WinArranger;
  129.   ITEM "WinManager" "$"
  130.        WinManager;
  131.   ITEMBAR
  132.   ITEM "Über WRITE" "!"
  133.        About;
  134.   ITEMBAR
  135.   ITEM "Ende" "Q"
  136.        QuitEd;
  137.  
  138. MENU   "EDIT"
  139.   ITEM "Setze Marke" "M"
  140.        SetTitle "Marke gesetzt." FALSE
  141.        SetMark;
  142.   ITEM "Lösche Marke" "U"
  143.        Unmark;
  144.   ITEMBAR
  145.   ITEM "Kopieren" "C"
  146.        CopyBlock 0
  147.        SetTitle "Block kopiert." FALSE;
  148.   ITEM "Nach Clip kopieren" ""
  149.        CopyBlock 0
  150.        BufferToClip 0   0
  151.        SetTitle "Block kopiert." FALSE;
  152.   ITEM "Speicher Block als..." ""
  153.        CopyBlock 0
  154.        GetFile {@SAVE}
  155.        SaveBuffer _Path 0;
  156.   ITEM "Drucke Block" ""
  157.        CopyBlock 0
  158.        SaveBuffer "PRT:" 0;
  159.  
  160. MENU "UTLITIES"
  161.   ITEM "Zeige Zeit & Datum" "T"
  162.        MessageOK "Aktuelle Zeit ist :\n$_Time$";
  163.   ITEMBAR
  164.   ITEM "Match Bracket" "("
  165.        MatchBracket;
  166.  
  167. MENU   "SEARCH"
  168.   ITEM "Finde..." "F"
  169.        GetFindReplace _FindString ""
  170.        Find @CURSOR @CURSOR @EOT @EOT;
  171.   ITEM "Finde noch einmal" "N"
  172.        Find @CURSOR @CURSOR @EOT @EOT;
  173.   ITEMBAR
  174.   ITEM "Suche nach Muster..." ""
  175.        GetString "Bitte geben sie das Suchmuster an :\n(Case)" _PatCase
  176.        SetVar "_PatCase" _RS
  177.        FindPattern {@CASE};
  178.   ITEM "Suche noch einmal" ""
  179.        FindPattern {@CASE};
  180.   ITEM "Suche nach Muster (no Case)..." "Ö"
  181.        GetString "Bitte geben sie das Suchmuster an :\n(No case)" _PatNoCase
  182.        SetVar "_PatNoCase" _RS
  183.        FindPattern {@NOCASE};
  184.   ITEM "Suche noch einmal" "Ä"
  185.        FindPattern {@NOCASE};
  186.   ITEMBAR
  187.   ITEM "Springe zu Zeile..." "G"
  188.        GetNumber "Springe zu Zeile :" _yPos
  189.        Goto _xPos _RN;
  190.   ITEMBAR
  191.   ITEM "Zeige Index..." "J"
  192.        GetString "Bitte geben sie das Suchmuster\n"+
  193.                  "für den Index an :" "#?#?"
  194.        ShowIndex _RS {@CASE};
  195.  
  196.  
  197. MENU   "PREFS"
  198.   ITEM "Globale Prefs" ""
  199.        GPrefs;
  200.   ITEM "Prefs" "+"
  201.        Prefs;
  202.  
  203. MENU   "HELP"
  204.   ITEM "Zeige Variablen" ""
  205.        ShowVars;
  206.   ITEM "Zeige Funktionen" ""
  207.        ShowFunctions;
  208.   ITEM "Zeige ASCII-Codes" ""
  209.        ShowASCII;
  210.   ITEM "Hilfe zu Stichwort..." "?"
  211.        GetString "Bitte geben sie das gesuchte Stichwort ein :" ""
  212.        GuideHelp _RS;
  213.